home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / dora / doraset.plp < prev    next >
Text File  |  1993-11-30  |  33KB  |  920 lines
  1. /*    Yes/Noを1/2に変換する    */
  2. %YesNo    {[YN,default];
  3.     case    (YN,
  4.         {Yes},{im({1})},{No},{im({2})},,{im(default)});
  5.     };
  6. /*    USER-ID & PASSWORDの設定    */
  7. %setID    {%id ID;%pass PassWord;
  8.     loop    ({
  9.         footnote({ユーザー情報を設定して下さい});SNDMSG({nyuryo_f.snd});        %a @plane(
  10.             {cユーザー情報を設定して下さい\n}|
  11.             {tユーザーＩＤ  /xxxxxxxx\n}|
  12.             {tパスワード    /xxxxxxxx\n}|
  13.             {s              / 設定 / 取消 },
  14.             id,pass);
  15. %id    @head(@getline(a,1,1),{\n});%pass    @head(@getline(a,2,1),{\n});
  16. %ok    @head(@getline(a,3,1),{\n});
  17.         case    (ok,
  18.             { 1},{ID:=id;PassWord:=pass;im({No})},
  19.             { 2},{im({No})},,{im({No})});
  20.         })};
  21. %setAT    {var type[10];
  22.     footnote({モデムのタイプを選択して下さい});
  23.     type := @select({どういうタイプのモデムですか？},
  24.         Wtime4,{im({1200n})},
  25.         {  １２００　                  ＭＮＰなし  },{im({1200n})},
  26.         {  ２４００　                  ＭＮＰなし  },{im({2400n})},
  27.         {  ２４００(端末速度2400)　    ＭＮＰあり  },{im({2400m})},
  28.         {  ２４００(端末速度4800)　    ＭＮＰあり  },{im({4800m})},
  29.         {  2400以上(端末速度9600以上)　ＭＮＰあり  },{im({9600m})});
  30.     SNDMSG({nyuryo_f.snd});
  31.     footnote({ＡＴコマンドを設定して下さい});
  32.     %a @input({ATコマンドを設定して下さい  例｢ATX3\N3\V1\Q3\J0｣},,
  33.                         {AT}|@head(MODEM,{/}));
  34.     case    (a<>{},{Yes},
  35.         {case(@getchar(a,1,2),{AT},
  36.             {case(a=@head(a,{\}),{Yes},
  37.                 {MODEM:=@getchar(a,3,999)|{/}|
  38.                     @getchar(a,3,999)|{/AT直接指定_}|type;},                ,{MODEM:=@getchar(a,3,999)|{/}|
  39.                     {/AT直接指定_}|type;})})
  40.         },{No},{setAT})};
  41. %FUJITSU{
  42.     SNDMSG({erande_f.snd});
  43.     footnote({モデムの機種を選んで下さい});
  44.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  45.     Wtime4,{},
  46.     {内蔵1200},     {MODEM:={X3//内蔵1200_1200n}},
  47.     {内蔵2400},    {MODEM:={X3/\N3\V1\Q3\J0%C0/内蔵2400_9600m}},
  48.     {富士通 PM1200F},{MODEM:={X3//PM1200F_1200n}},
  49.     {富士通 PM2400F},{MODEM:={X3/\N3\V1\Q3\J0%C0/PM2400F_9600m}},
  50.     {富士通 PM2400FII},{MODEM:={X3/\N7\Q3\J0\V2%C0/PM2400FII_9600m}},
  51.     {富士通 OAMD-301},{MODEM:={X3&D2/\N3\Q3\J0\V2/OAMD-301_9600m}},
  52.     {ATコマンド直設定 },{setAT},{変更しない},{}
  53.     )};
  54. %AIWA    {
  55.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  56.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  57.     Wtime4,{},
  58.     {AIWA PV-A1200},{MODEM:={X3//PV-A1200_1200n}},
  59.     {AIWA PV-A2400},{MODEM:={X3//PV-A2400_2400n}},
  60.     {AIWA PV-A2400MNP4},{MODEM:={&D2/&M4\Q1/PV-A2400MNP4_9600m}},
  61.     {AIWA PV-A24MNP5},{MODEM:={X3&D2/\N3\Q3\J0/PV-A24MNP5_9600m}},
  62.     {AIWA PV-A24V42},{MODEM:={X3&D2/\N3\Q3\J0/PV-A24V42_9600m}},
  63.     {AIWA PV-M24},{MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24_9600m}},
  64.     {AIWA PV-M24M5},{MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24M5_9600m}},
  65.     {AIWA PV-M24B5},{MODEM:={X3&D2/\N3\Q3\J0\V2%C0/PV-M24B5_9600m}},
  66.     {AIWA PV-A96V5},{MODEM:={X3&D2/\N3\Q3\J0\V2%C0/PV-A96V5_9600m}},
  67.     {AIWA PV-AF144V5},
  68.     {MODEM:={X4B2&D2/\N3\Q3\J0\V2%C0S91=13/PV-AF144V5_14400m}},
  69.     {},{},
  70.     {ATコマンド直設定 },{setAT},{変更しない},{}
  71.     )};
  72. %OMRON    {
  73.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  74.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  75.     Wtime4,{},
  76. {OMRON MD1200},{MODEM:={X3//MD1200_1200n}},
  77. {OMRON MD12FS},{MODEM:={X3//MD12FS_1200n}},
  78. {OMRON MD2400F},{MODEM:={X3/\N3\V1\Q2\J0/MD2400F_2400m}},
  79. {OMRON MD24FB5V},{MODEM:={X3/\N3\Q2\J0\V2%C0/MD24FB5V_9600m}},
  80. {OMRON MD24FP4},{MODEM:={X3/\N3\Q2\J0/MD24FP4_2400m}},
  81. {OMRON MD24FP4II},{MODEM:={X3&P2/\N3\Q2\J0/MD24FP4II_9600m}},
  82. {OMRON MD24FP5V},{MODEM:={X3/\N3\Q2\J0\V2%C0/MD24FP5V_9600m}},
  83. {OMRON MD24FS4},{MODEM:={X3/\N3\Q2\J0/MD24FS4_2400m}},
  84. {OMRON MD24FS5},{MODEM:={X3&E0/\N3\Q2\J0%C1/MD24FS5_4800m}},
  85. {OMRON MD24FS7},{MODEM:={X3/\N3\Q2\J0%C3/MD24FS7_4800m}},
  86. {OMRON MD246FL10V},{MODEM:={X3/\N3\Q2%C0\J0/MD24FL10V_9600m}},
  87. {OMRON MD24XL10V},{MODEM:={X3/\N3\Q2%C0\J0/MD24XL10V_9600m}},
  88. {OMRON MD96FB5V (MNP)},{MODEM:={X4&E0/\N3\Q2\J0%C1\V2/MD96FB5V_9600m}},
  89. {OMRON MD96FB5V (LAP)},{MODEM:={X4&E0/\N3%C1&M5*C1\D0\J0\V2/MD96FB5V_9600m}},
  90. {OMRON MD96FL10V},{MODEM:={X3/\N3\Q2%C0\J0/MD96FL10V_19200m}},
  91. {OMRON MD96XL10V},{MODEM:={X3/\N3\Q2%C0\J0/MD96XL10V_19200m}},
  92.     {ATコマンド直設定 },{setAT},{変更しない},{}
  93.     )};
  94. %EPSON    {
  95.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  96.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  97.     Wtime4,{},
  98.     {EPSON SR-120S},{MODEM:={X3//SR-120S_1200n}},
  99.     {EPSON SR-240AT},{MODEM:={X3//SR-240AT_2400n}},
  100.     {EPSON SR-240V},{MODEM:={X3\V2/N1&K1%C0/SR-240V_9600m}},
  101.     {ATコマンド直設定 },{setAT},{変更しない},{}
  102.     )};
  103. %NEC    {
  104.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  105.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  106.     Wtime4,{},
  107.     {NEC COMSTAR 2424},{MODEM:={X3/\N3\Q2/COMSTAR 2424_2400m}},
  108.     {NEC COMSTARZ CLUB24/5}
  109.         ,{MODEM:={X4/\N3\Q3\J0\V2&C1&D2&S1/COMSTARZ CLUB24/5_2400m}},
  110.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  111.     )};
  112. %SONY    {
  113.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  114.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  115.     Wtime4,{},
  116.     {SONY IT-V1200},{MODEM:={X3//IT-V1200_1200n}},
  117.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  118.     )};
  119. %MICROCORE{
  120.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  121.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  122.     Wtime4,{},
  123.     {MICROCORE MC24PA5},{MODEM:={X3/\N5\Q2\J0\X1%C1/MC24PA5_9600m}},
  124.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  125.     )};
  126. %setMODEM{
  127.     %modem    {case(MODEM,{},{im({未設定})},,{head(@tail(MODEM,{/}),{_})})};
  128.     SNDMSG({erande_f.snd});footnote({モデムのメーカーを選んで下さい});
  129.     select({モデムのメーカーを選んで下さい},
  130.     Wtime4,{},
  131.     {  ＦＵＪＩＴＳＵ  },{FUJITSU},    {     ＡＩＷＡ     },{AIWA},
  132.     {    ＯＭＲＯＮ    },{OMRON},    {    ＥＰＳＯＮ    },{EPSON},
  133.     {      ＮＥＣ      },{NEC},    {     ＳＯＮＹ     },{SONY},
  134.     {   マイクロコア   },{MICROCORE},{ ATコマンド直設定 },{setAT},
  135.     { クロス･ケーブル接続 },{setCABL}
  136.     )};
  137. /*    ダイヤル種類の設定    */
  138. %setDIAL{%dial    {case    (DIAL,
  139.             {P},{im({ダイヤルパルス式})},
  140.             {T},{im({プッシュホン式})},
  141.             ,   {im({未設定})})};
  142.     footnote({電話回線の種類を指定して下さい});
  143.     select    ({電話回線の種類を指定して下さい  現在は}|@dial|{です},
  144.         Wtime4,{},
  145.         {ダイヤルパルス式},{DIAL:={P}},
  146.         { プッシュホン式 },{DIAL:={T}}
  147.         )};
  148. %setMDM    {loop    ({
  149.         SNDMSG({erande_f.snd});
  150.         footnote({設定する情報を選択して下さい});
  151.         select    ({設定する情報を選択して下さい  << モデム設定 >>},
  152.             Wtime4,{im({No})},
  153.             {    モデム機種の設定    },{setMODEM;im({Yes})},
  154.             {   ダイヤル種類の設定   },{setDIAL;im({Yes})},
  155.             {        設定終了        },{im({No})}
  156.             )})};
  157. /* '93/ 2 / 7 Take */
  158. %setCABL{%modem    {case    (MODEM,{},{im({未設定})},
  159.             ,  {head(@tail(MODEM,{/}),{_})}
  160.             )};
  161.     SNDMSG({erande_f.snd});
  162.     footnote({ホストのバージョンを選んで下さい});
  163.     select({ﾎｽﾄのﾊﾞｰｼﾞｮﾝを選んで下さい  現在は｢}|@modem|{｣です},
  164.     Wtime4,{},
  165.     {RTBBS5.3αe以前},     {MODEM:={RET//RTBBS5.3αe_00s}},
  166.     {RTBBS5.3βa以降},     {MODEM:={ESC//RTBBS5.3βa_00s}},
  167.     {変更しない},{}
  168.     )};
  169. %selDIR    {
  170.     [MSG]
  171.     footnote(MSG|{まで移動して右クリックしてください});
  172.     SNDMSG({erande_f.snd});
  173.     filesel;
  174.     im(@getcdir);
  175.     };
  176. %setBBSTEL{
  177.         var gen[3];    var gen2[3];    var gen3[3];    var gen4[3];
  178.     var netname[40];var opentime[2];var closetime[2]; 
  179.     var road[80];    var road2[80];    var road3[80];    var road4[80];    
  180.         road:=@nth(ROAD,1,{/});
  181.         road2:=@nth(ROAD2,1,{/});
  182.         road3:=@nth(ROAD3,1,{/});
  183.         road4:=@nth(ROAD4,1,{/});
  184.     loop    ({
  185.         SNDMSG({erande_f.snd});    opentime:=openT; closetime:=closeT;
  186.     gen:=    @case(GEN,{Yes},{im({1})},{No},{im({2})},,{im({2})});
  187.     gen2:=    @case(GEN2,{Yes},{im({1})},{No},{im({2})},,{im({2})});
  188.     gen3:=    @case(GEN3,{Yes},{im({1})},{No},{im({2})},,{im({2})});
  189.     gen4:=    @case(GEN4,{Yes},{im({1})},{No},{im({2})},,{im({2})});
  190. footnote({注意;アクセス時間制限が無い場合｢開・閉局時間｣＝空白にして下さい});
  191.         %a @plane(
  192.         {c○正式名称＝★}|NETname|{・簡易名称＝★}|NET|{\n}|
  193.         {c 電話番号を入力してください。\n}|
  194.         {t        開局時間(24H表示)　/xx\n}|
  195.         {t        閉局時間(24H表示)　/xx\n}|
  196.         {t　ｃｈ．１の電話番号 　       /\n}|
  197.         {r　ch.1 のアクセス時間制限  /有り /無し \n}|
  198.         {t　ｃｈ．２の電話番号 　       /\n}|
  199.         {r　ch.2 のアクセス時間制限  /有り /無し \n}|
  200.         {t　ｃｈ．３の電話番号 　       /\n}|
  201.         {r　ch.3 のアクセス時間制限  /有り /無し \n}|
  202.         {t　ｃｈ．４の電話番号 　       /\n}|
  203.         {r　ch.4 のアクセス時間制限  /有り /無し \n}|
  204.         {c 設定を選択すると通信速度の設定が出来ます\n}|
  205.         {s                        / 設定 / 取消 },
  206.     opentime,closetime,road,gen,road2,gen2,road3,gen3,road4,gen4);
  207. opentime:=    @head(@getline(a,1,1),{\n});
  208. closetime:=    @head(@getline(a,2,1),{\n});
  209. road:=    @head(@getline(a,3,1),{\n});    gen:=    @head(@getline(a,4,1),{\n});
  210. road2:=    @head(@getline(a,5,1),{\n});    gen2:=    @head(@getline(a,6,1),{\n});
  211. road3:=    @head(@getline(a,7,1),{\n});    gen3:=    @head(@getline(a,8,1),{\n});
  212. road4:=    @head(@getline(a,9,1),{\n});    gen4:=    @head(@getline(a,10,1),{\n});
  213. %ok    @head(@getline(a,11,1),{\n});
  214.     case(ok,{ 1},{    openT:=opentime;
  215.             closeT:=closetime;
  216.             ROAD:=@im(road|{/}|@tail(ROAD,{/}));
  217.             ROAD2:=@im(road2|{/}|@tail(ROAD2,{/}));
  218.             ROAD3:=@im(road3|{/}|@tail(ROAD3,{/}));
  219.             ROAD4:=@im(road4|{/}|@tail(ROAD4,{/}));
  220.         case(gen,{ 1},{GEN:={Yes}},{ 2},{GEN:={No}},,{GEN:={No}});
  221.         case(gen2,{ 1},{GEN2:={Yes}},{ 2},{GEN2:={No}},,{GEN2:={No}});
  222.         case(gen3,{ 1},{GEN3:={Yes}},{ 2},{GEN3:={No}},,{GEN3:={No}});
  223.         case(gen4,{ 1},{GEN4:={Yes}},{ 2},{GEN4:={No}},,{GEN4:={No}});
  224.         setNETbps;im({No})},
  225.         { 2},{im({No})},,{im({No})});
  226.         });
  227.     };
  228. %setNETbps{
  229.     var netbps[80]; var netbps2[80]; var netbps3[80]; var netbps4[80]; 
  230.     netbps:=@tail(ROAD,{/});
  231.     netbps2:=@tail(ROAD2,{/});
  232.     netbps3:=@tail(ROAD3,{/});
  233.     netbps4:=@tail(ROAD4,{/});
  234.     case(netbps={},{Yes},{netbps:={未設定}},{No},{});
  235.     case(netbps2={},{Yes},{netbps2:={未設定}},{No},{});
  236.     case(netbps3={},{Yes},{netbps3:={未設定}},{No},{});
  237.     case(netbps4={},{Yes},{netbps4:={未設定}},{No},{});    
  238.     %a @plane(
  239.         {c }|NET|{の電話番号毎の通信速度を入力してください。\n}|
  240.         {t ch.1の電話番号=}|road|{   /xxxxxx\n}|
  241.         {t ch.2の電話番号=}|road2|{   /xxxxxx\n}|
  242.         {t ch.3の電話番号=}|road3|{   /xxxxxx\n}|
  243.         {t ch.4の電話番号=}|road4|{   /xxxxxx\n}|
  244.         {s                        / 設定 / 取消 },
  245.             netbps,netbps2,netbps3,netbps4);
  246. %netbps     @head(@getline(a,1,1),{\n});%netbps2    @head(@getline(a,2,1),{\n});
  247. %netbps3 @head(@getline(a,3,1),{\n});%netbps4    @head(@getline(a,4,1),{\n});
  248. %ok     @head(@getline(a,5,1),{\n});
  249.         case(ok,{ 1},{            
  250.         ROAD:=    @im(@nth(ROAD,1,{/})|{/}|netbps);
  251.         ROAD2:=    @im(@nth(ROAD2,1,{/})|{/}|netbps2);
  252.         ROAD3:=    @im(@nth(ROAD3,1,{/})|{/}|netbps3);
  253.         ROAD4:=    @im(@nth(ROAD4,1,{/})|{/}|netbps4);
  254.         },
  255.         { 2},{im({No})},
  256.         ,{im({No})});
  257.     };
  258. %setBBSname    {        SNDMSG({nyuryo_f.snd});
  259.         footnote({ネット巡回機能で使用(する予定です)します});
  260.         NETname:=@input(NET|{の正式なネット名称を入力して下さい},
  261.                 ,NETname);
  262.         };
  263. %setACP        {
  264.         select({            ＜＜ アクセスポイント ＞＞},
  265.             Wtime4,{},
  266.             {区域内通話 },{AcP:={区域内通話};AcPNo:=1},
  267.             {隣接～20km },{AcP:={隣接～20km};AcPNo:=2},
  268.             {    ～30km },{AcP:={20km～30km};AcPNo:=3},
  269.             {    ～40km },{AcP:={30km～40km};AcPNo:=4},
  270.             {    ～60km },{AcP:={40km～60km};AcPNo:=5},
  271.             {    ～80km },{AcP:={60km～80km};AcPNo:=6},
  272.             {   ～100km },{AcP:={80km～100km};AcPNo:=7},
  273.             {   ～160km },{AcP:={100km～160km};AcPNo:=8},
  274.             { 160km以上 },{AcP:={160km以上};AcPNo:=9});
  275.         };
  276.  
  277. %setBBSNAME    {
  278.     loop    ({
  279.         SNDMSG({erande_f.snd});
  280.         footnote({ネットの名称を入力して下さい});
  281.         select    ({ネットの名称・電話番号・通信速度の設定},
  282.             Wtime4,{im({No})},
  283.             {ネットの名称を入力する},{SNDMSG({nyuryo_f.snd});
  284.             footnote({NETの名称を入力して下さい});
  285.     %net @input({ログファイル名称に使用しますので、必ず半角の大文字\n}|
  286.         {３文字にてNETの簡易名称を入力して下さい。\n}|
  287.         { 尚　簡易名称は「.」を含まないで表現して下さい。\n},
  288.             ,NET);
  289.         case    (@nochar(net),
  290.             3,{NET:=net;setBBSname;setACP;im({Yes})},
  291.             2,{NET:=net;setBBSname;setACP;im({Yes})},
  292.                 ,{setBBSname});im({Yes});
  293.             },
  294.             {ＮＥＴの電話番号を入力する    },{setBBSTEL;im({Yes})},
  295.             {      設定終了      },{im({No})}
  296.             )});
  297.         };
  298. /*    ID検索ﾘｽﾄの設定    */
  299. %setRTTFIL{
  300.     footnote({RTTLC.EXEファイルを指定してください});
  301.     SNDMSG({erande_f.snd});
  302.     %rttlfil @filesel;
  303.     case    (rttlfil<>{},
  304.         {Yes},
  305.         {
  306.         %cdir    @getcdir;
  307.         case    (@nochar(cdir)==3,
  308.             {Yes},{RTTLC:=cdir|rttlfil},
  309.             {No},{RTTLC:=cdir|{\}|rttlfil}
  310.             );rttl:=RTTLC;
  311.         });
  312.     im({Yes});
  313.     };
  314. %setMEMBER{
  315.     footnote({ＩＤ検索用リストファイルを指定してください});
  316.     SNDMSG({erande_f.snd});
  317.     %member @filesel;
  318.     case    (member<>{},
  319.         {Yes},
  320.         {
  321.         %cdir    @getcdir;
  322.         case    (@nochar(cdir)==3,
  323.             {Yes},{MEMBER:=cdir|member},
  324.             {No},{MEMBER:=cdir|{\}|member}
  325.             );idlist:=MEMBER;
  326.         });
  327.     im({Yes});
  328.     };
  329.  
  330. %setLOGF{
  331.     %chkDIR    {
  332.         [DIR]
  333.         im(DIR={}||@getchar(DIR,2,2)={:\});
  334.         };
  335.  
  336.     var    arcdir    [64];    var    wkdir    [64];    var    updir    [64];
  337.     var    fswdir    [64];    var    rttldir    [64];    var    viewdir    [64];
  338.     var    idlist    [64];    var    rttl    [64];    
  339.     arcdir:=    LOG;
  340.     wkdir:=        TEMP;
  341.     updir:=        UP;
  342.     rttldir    :=    RTTLdir;
  343.     rttl    :=    RTTLC;
  344.     fswdir    :=    FSW;
  345.     idlist    :=    MEMBER;
  346.     viewdir    :=    VIEWLOG;
  347.     loop    ({
  348.     case(FSW={},
  349.         {Yes},{
  350.             case    (LOG={},
  351.                 {No},{fswdir:=@im(LOG2|{FREESOFT\});
  352.                 FSW:=fswdir
  353.                 })
  354.             },
  355.         ,);
  356.     case(MEMBER={},
  357.         {Yes},    {
  358.             case    (LOG={},
  359.                 {No},{idlist:=@im(LOG2|{PROFILE\member.lst});
  360.                 MEMBER:=idlist
  361.                 })
  362.             });
  363.         footnote({ディレクトリ情報を設定してください});
  364.         SNDMSG({nyuryo_f.snd});
  365.         %a @plane(
  366.             {cディレクトリをﾌﾙﾊﾟｽで入力してください\n}|
  367.             {tログ保存用             /\n}|
  368.             {tテンポラリ用           /\n}|
  369.             {tアップロード用         /\n}|
  370.             {tフリーソフト用         /\n}|
  371.             {tＲＴＴＬＣ出力用       /\n}|
  372.             {c出力されたﾌｧｲﾙが D:\TGK\TGKXXXX.LOG\n}|
  373.             {c の場合は｢D:\TGK｣と入力してください\n}|
  374.             {t第２ログ参照用         /\n}|
  375.             {s 検索                  /ﾛｸﾞ保存 /ﾃﾝﾎﾟﾗﾘ /ｱｯﾌﾟﾛｰﾄﾞ\n}|
  376.             {s                       /ﾌﾘｰｿﾌﾄ /RTTLC出力/ﾛｸﾞ参照 \n}|
  377.             {tログカッタ(RTTLC)指定;ﾌｧｲﾙ名まで入力  /\n}|
  378.             {tＩＤ検索リスト指定   ;ﾌｧｲﾙ名まで入力/\n}|
  379.             {s                       /RTTLCﾌｧｲﾙ/ID検索ﾌｧｲﾙ\n}|
  380.             {s                       / 設定 / 取消 },
  381.             arcdir,wkdir,updir,fswdir,rttldir,viewdir,rttl,
  382.             idlist);
  383.         arcdir:=    @head(@getline(a,1,1),{\n});
  384.         wkdir:=        @head(@getline(a,2,1),{\n});
  385.         updir:=        @head(@getline(a,3,1),{\n});
  386.         fswdir:=    @head(@getline(a,4,1),{\n});
  387.         rttldir:=    @head(@getline(a,5,1),{\n});
  388.         viewdir:=    @head(@getline(a,6,1),{\n});
  389.         %sel1        @head(@getline(a,7,1),{\n});
  390.         %sel2        @head(@getline(a,8,1),{\n});
  391.         rttl:=        @head(@getline(a,9,1),{\n});
  392.         idlist:=    @head(@getline(a,10,1),{\n});
  393.         %sel3        @head(@getline(a,11,1),{\n});
  394.         %ok        @head(@getline(a,12,1),{\n});
  395.         case    (sel1,
  396.             { 1},
  397.             {arcdir:=@selDIR({ログ保存ディレクトリ});
  398.             LOG:=arcdir;im({Yes});
  399.             case(@nochar(LOG)==3,
  400.             {No},{LOG2:=LOG|{\}},{Yes},{LOG2:=LOG});
  401.             },
  402.             { 2},
  403.             {wkdir:=@selDIR({テンポラリディレクトリ})},
  404.             { 3},
  405.             {updir:=@selDIR({アップロードディレクトリ})}
  406.             );
  407.         case    (sel2,
  408.             { 1},
  409.             {fswdir:=@selDIR({フリーソフト用ディレクトリ})},
  410.             { 2},
  411.             {rttldir:=@selDIR({ＲＴＴＬＣ出力ディレクトリ})},
  412.             { 3},
  413.             {viewdir:=@selDIR({ログ参照時の第２ディレクトリ})}
  414.             );
  415.         case    (sel3,
  416.             { 1},
  417.             {setRTTFIL},
  418.             { 2},
  419.             {setMEMBER}
  420.             );
  421.         case    (ok,
  422.             { 1},
  423.             {
  424.             case    (@chkDIR(arcdir)&&@chkDIR(wkdir)&&
  425.                  @chkDIR(updir)    &&@chkDIR(fswdir)&&
  426.                  @chkDIR(rttldir)&&@chkDIR(viewdir),
  427.                 {Yes},
  428.                 {
  429.                 LOG:=arcdir;
  430.                 TEMP:=wkdir;
  431.                 UP:=updir;
  432.                 FSW:=fswdir;
  433.                 RTTLdir:=rttldir;
  434.                 VIEWLOG:=viewdir;
  435.                 MEMBER:=idlist;
  436.     /*ｱｸｾｽ前にﾃﾞｨﾚｸﾄﾘを作成*/
  437.     init;
  438.     var ProFile[64];
  439.     case    (@nochar(MEMBER),
  440.         0,{ProFile:=LOG2|{PROFILE\member.lst}},
  441.         3,{ProFile:=MEMBER},
  442.         ,{ProFile:=MEMBER}
  443.         );
  444.     mkdir2(LOG2|{ｱｸｾｽdat});        mkdir2(@body(ProFile,,{\}));
  445.     mkdir2(LOG2|{board});        mkdir2(LOG2|{PROFILE});
  446.     mkdir2(LOG2|{DATALIB});        mkdir2(LOG2|{FREESOFT});
  447.                 },
  448.                 {No},{SNDMSG({okasi_f.snd});im({Yes})}
  449.                 );
  450.             case    (@tail(rttl,{\})={RTTLC.EXE}
  451.                     ||@tail(rttl,{\})={RTTLC}
  452.                     ||@tail(rttl,{\})={rttlc.exe}
  453.                     ||@tail(rttl,{\})={rttlc},
  454.                 {Yes},{RTTLC:=rttl},
  455.                 {No},{footnote({RTTLCをﾄﾞﾗｲﾌﾞ名からのﾌﾙﾊﾟｽで}                    |{入力して下さい(拡張子は不要)});
  456.                 SNDMSG({okasi_f.snd});wait(3);im({Yes})}
  457.                 );
  458.             },
  459.             { 2},{im({No})},
  460.             ,{im(!(sel1={ 0}&&sel2={ 0}&&sel3={ 0}))}
  461.             );
  462.         });
  463.     };
  464.  
  465. /*    背景色の設定をする    */
  466. %setCOLOR{case    (R,{},{R:=0});case    (G,{},{G:=0});    case    (B,{},{B:=0});
  467.     SNDMSG({erande_f.snd});footnote({背景色の変更をします});
  468.     loop    ({select    ({背景色の変更をします}|
  469.                 {  現在は r=}|R|{ g=}|G|{ b=}|B|{ です},
  470.             Wtime4,{im({No})},
  471.             {赤↑},
  472.             {case(R<251,{Yes},{R:=R+5;backclr(R,G,B)});im({Yes})},
  473.             {赤↓},
  474.             {case(R>  4,{Yes},{R:=R-5;backclr(R,G,B)});im({Yes})},
  475.             {緑↑},
  476.             {case(G<251,{Yes},{G:=G+5;backclr(R,G,B)});im({Yes})},
  477.             {緑↓},
  478.             {case(G>  4,{Yes},{G:=G-5;backclr(R,G,B)});im({Yes})},
  479.             {青↑},
  480.             {case(B<251,{Yes},{B:=B+5;backclr(R,G,B)});im({Yes})},
  481.             {青↓},
  482.             {case(B>  4,{Yes},{B:=B-5;backclr(R,G,B)});im({Yes})},
  483.             {終了},
  484.             {im({No})}
  485.             )})};
  486. /*    音声メッセージファイルのコピー    */
  487. %copySND{[snddir]        /* 最後は｢\｣であること */
  488.     display    (BELL);footnote({システムＣＤをセットして下さい});
  489.     select    ({システムＣＤをセットして下さい},
  490.         Wtime4,,
  491.         { ＯＫ },
  492.         {case    (@setcdir({q:\fj\msg}),    /* v1.1    */
  493.             {Yes},{
  494.             footnote({erande_f.sndをコピーします});
  495.             command({copy order\erande_f.snd }|snddir|{*.*});
  496.             footnote({nyuryo_f.sndをコピーします});
  497.             command({copy order\nyuryo_f.snd }|snddir|{*.*});
  498.             footnote({kaknin_f.sndをコピーします});
  499.             command({copy order\kaknin_f.snd }|snddir|{*.*});
  500.             footnote({owata_f.sndをコピーします});
  501.             command({copy info\owata_f.snd }|snddir|{*.*});
  502.             footnote({okasi_f.sndをコピーします});
  503.             command({copy alarm\okasi_f.snd }|snddir|{*.*});
  504.             footnote({okaeri_f.sndをコピーします});
  505.             command({copy greeting\okaeri_f.snd }|snddir|{*.*});
  506.             footnote({jikan_f.sndをコピーします});
  507.             command({copy info\jikan_f.snd }|snddir|{*.*});
  508.             },
  509.             {No},{
  510.             case    (@setcdir({q:\fj2\msg}),    /* v2.1 */
  511.                 {Yes},{
  512.             footnote({erande_f.sndをコピーします});
  513.             command({copy order\erande_f.snd }|snddir|{*.*});
  514.             footnote({nyuryo_f.sndをコピーします});
  515.             command({copy order\nyuryo_f.snd }|snddir|{*.*});
  516.             footnote({kaknin_f.sndをコピーします});
  517.             command({copy order\kaknin_f.snd }|snddir|{*.*});
  518.             footnote({owata_f.sndをコピーします});
  519.             command({copy info\owata_f.snd }|snddir|{*.*});
  520.             footnote({okasi_f.sndをコピーします});
  521.             command({copy warning\okasi_f.snd }|snddir|{*.*});
  522.             footnote({okaeri_f.sndをコピーします});
  523.             command({copy greeting\okaeri_f.snd }|snddir|{*.*});
  524.             footnote({jikan_f.sndをコピーします});
  525.             command({copy info\jikan_f.snd }|snddir|{*.*});
  526.                 });
  527.             });
  528.         footnote({});
  529.         },
  530.         { ＮＯ },
  531.         )};
  532. /*    音声メッセージファイルの設定    */
  533. %setSNDDIR{SNDMSG({nyuryo_f.snd});
  534.     footnote({ディレクトリ名を入力して下さい});
  535.     %sound    @input({音声ﾒｯｾｰｼﾞﾌｧｲﾙを格納するﾃﾞｨﾚｸﾄﾘを指定して下さい\n}
  536.             |{    ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}
  537.             |{    例  A:\MOPTERM\SOUND},,SOUND);
  538.     case    (@getchar(sound,2,2)={:\},
  539.         {No},setSNDDIR,
  540.         {Yes},{SOUND:={}}
  541.         );
  542.     %sound2    {case(@nochar(sound),{3},{im(sound)},,{im(sound|{\})})};
  543.     mkdir2    (sound);
  544.     case    (@filechk(@sound2|{erande_f.snd})&&
  545.          @filechk(@sound2|{nyuryo_f.snd})&&
  546.          @filechk(@sound2|{kaknin_f.snd})&&
  547.          @filechk(@sound2|{okasi_f.snd})&&
  548.          @filechk(@sound2|{owata_f.snd})&&
  549.          @filechk(@sound2|{okaeri_f.snd})&&
  550.          @filechk(@sound2|{jikan_f.snd}),
  551.         {No},{copySND(@sound2)});
  552.     VBELL:={No};
  553.     SOUND:=sound;
  554.     case(@nochar(SOUND)=3,{Yes},{SOUND2:=SOUND},{No},{SOUND2:=SOUND|{\}});
  555.     };
  556. /*    ｂｅｌｌｆｉｌｅの設定    */
  557. %setBELFIL{SNDMSG({erande_f.snd});
  558.     footnote({ベルの代わりに鳴らす音声ファイルを指定して下さい});
  559.     %bell    @filesel({SND});
  560.     %bell2    {case    (@nochar(@getcdir),{3},{im(@getcdir|bell)},
  561.                     ,{im(@getcdir|{\}|bell)})};
  562.     case    (bell,{},{BELFIL:={}},,{BELFIL:=@bell2});
  563.     case(@tail(BELFIL,{.})={snd}||@tail(BELFIL,{.})={SND},
  564.         {Yes},{bellfile(BELFIL)});
  565.     SOUND:={};SOUND2:={};VBELL:={No};
  566.     };
  567. /*    入力プロンプトの設定    */
  568. %setPRMPT{SNDMSG({erande_f.snd});
  569.     footnote({入力時のプロンプト方法を指定して下さい});
  570.     select    ({入力時のプロンプト方法を指定して下さい},
  571.         Wtime4,,
  572.         {   音声メッセージ   },{VBELL:={No};BELL:={};setSNDDIR},
  573.         {      ブザー音      },
  574.         {SOUND:={};SOUND2:={};VBELL:={No};BELL:=@xc({07});BELFIL:={}},
  575.         {   画面フラッシュ   },
  576.         {SOUND:={};SOUND2:={};VBELL:={Yes};BELL:=@xc({07});BELFIL:={}},
  577.         {指定のｓｎｄファイル},{VBELL:={No};BELL:=@xc({07});setBELFIL},
  578.         {   プロンプト無し   },
  579.         {SOUND:={};SOUND2:={};VBELL:={No};BELL:={};BELFIL:={}});
  580.     visibell(VBELL);
  581.     };
  582. /*    なっとうスクロールの設定    */
  583. %setNATTOU{%natto    {case    (NATTOU,
  584.             {Yes},{im({『  使用する  』})},
  585.             ,     {im({『 使用しない 』})}
  586.             );
  587.         };
  588.      SNDMSG({erande_f.snd});footnote({なっとうスクロールを使用しますか});
  589.     select    ({なっとうスクロールを使用しますか  現在は}|@natto|{です},
  590.         Wtime4,,
  591.         {  使用する  },{NATTOU:={Yes};nattou(NATTOU)},
  592.         { 使用しない },{NATTOU:={No};nattou(NATTOU)}
  593.         );
  594.     };
  595. /*    クリック音の設定    */
  596. %setCLICK{%clk    {case    (CLICK,
  597.             {No},{im({『 クリック音なし 』})},
  598.             ,    {im({『 クリック音あり 』})}
  599.             );
  600.         };
  601.     SNDMSG({erande_f.snd});    footnote({クリック音を出力しますか});
  602.     select    ({クリック音を出力しますか  現在は}|@clk|{です},
  603.         Wtime4,,
  604.         { クリック音あり },{CLICK:={Yes};click(CLICK)},
  605.         { クリック音なし },{CLICK:={No};click(CLICK)}
  606.         );
  607.     };
  608. /*    タブサイズの設定    */
  609. %setTAB    {case    (TAB,{},{TAB:=8});
  610.     SNDMSG({erande_f.snd});footnote({タブサイズを指定して下さい});
  611.     select    ({タブサイズを指定して下さい  現在は}|TAB|{です},
  612.         Wtime4,,
  613.         { １ },{TAB:=1;tab(TAB)},{ ２ },{TAB:=2;tab(TAB)},
  614.         { ４ },{TAB:=4;tab(TAB)},{ ８ },{TAB:=8;tab(TAB)}
  615.         );
  616.     };
  617. /*    シフトロックの設定    */
  618. %setLOCK{%lock    {case    (LOCK,
  619.             {Yes},{im({『 シフトロックあり 』})},
  620.             ,     {im({『 シフトロックなし 』})}
  621.             );
  622.         };
  623.     SNDMSG({erande_f.snd});footnote({シフトロックを行いますか？});
  624.     select    ({シフトロックを行いますか  現在は}|@lock|{です},
  625.         Wtime4,,
  626.         { シフトロックあり },{LOCK:={Yes};shiftl(LOCK)},
  627.         { シフトロックなし },{LOCK:={No};shiftl(LOCK)}
  628.         );
  629.     };
  630. /*    かな漢字変換モードの初期値の設定    */
  631. %setOAK    {var    oakj    [2];    var    oakr    [2];
  632.     var    oakk    [2];    var    oakz    [2];
  633.     %exist    {[str,chr]
  634.         var n [4];var x [1];n:=0;x:=2;
  635.         %leng    @nochar(str);
  636.         loop    ({    n:=n+1;
  637.             case    (n>leng,
  638.                 {Yes},{im({No})},
  639.                 {No},{case(@getchar(str,n,1)=chr,{Yes},{x:=1});
  640.                 im({Yes});
  641.                 });
  642.             });
  643.         im(x);
  644.         };
  645.     loop    ({oakj:=@exist(OAK,{J});oakr:=@exist(OAK,{R});
  646.         %k    @exist(OAK,{K});%h    @exist(OAK,{H});
  647.         case(k==2&&h==2,{Yes},{oakk:={3}});
  648.         case(k==1,{Yes},{oakk:={2}});case(h==1,{Yes},{oakk:={1}});
  649.         oakz:=@exist(OAK,{Z});
  650.         footnote({かな漢字変換モードを設定してください});
  651.         SNDMSG({erande_f.snd});
  652.         %a @plane(
  653.             {cかな漢字変換モードの初期値を設定してください\n}|
  654.             {r漢字辞書モード   /使用する/使わない\n}|
  655.             {r日本語入力モード /ローマ字/かな\n}|
  656.             {rカナモード       /ひらがな/カタカナ/英字\n}|
  657.             {r全角モード       /全角    /半角\n}|
  658.             {s                 /  設定  /  取消  },
  659.             oakj,oakr,oakk,oakz);
  660. oakj:=    @head(@getline(a,1,1),{\n});oakr:=    @head(@getline(a,2,1),{\n});
  661. oakk:=    @head(@getline(a,3,1),{\n});oakz:=    @head(@getline(a,4,1),{\n});
  662. %ok    @head(@getline(a,5,1),{\n});
  663.         case    (ok==1,
  664.             {Yes},{OAK:={};
  665.             case(oakj==1,{Yes},{OAK:=OAK|{J}});
  666.             case(oakr==1,{Yes},{OAK:=OAK|{R}});
  667.             case(oakk,{ 1},{OAK:=OAK|{H}},{ 2},{OAK:=OAK|{K}});
  668.             case(oakz==1,{Yes},{OAK:=OAK|{Z}});
  669.             case(OAK<>{},{Yes},{setoak(OAK)});
  670.             im({No});
  671.             },{No},{im({No})});
  672.             })};
  673. /*    その他の設定をする    */
  674. %setETC    {%Nattou    @YesNo(NATTOU,{1});%Click    @YesNo(CLICK,{2});
  675.     %Tab    @case    (TAB,{1},{im({1})},{2},{im({2})},{4},{im({3})},
  676.             {8},{im({4})},,{im({4})});
  677.     %Lock    @YesNo(LOCK,{2});%Opening@YesNo(OPENING,{1});
  678.     %Hosei    @case(HOSEI,{-m},{im({1})},{ },{im({2})},,{im({2})});
  679.     loop    ({
  680.         footnote({その他の条件を設定してください});
  681.         SNDMSG({erande_f.snd});
  682.         %a @plane(
  683.             {cその他の条件を選択してください\n}|
  684.             {s              /       背景色の設定       \n}|
  685.             {s              /   プロンプト方法の設定   \n}|
  686.             {s              / かな漢字変換初期値の設定 \n}|
  687.             {r納豆スクロール        /する/しない\n}|
  688.             {rクリック音出力        /する/しない\n}|
  689.             {rタブ数                /１/２/４/８\n}|
  690.             {rシフトロック          /する/しない\n}|
  691.             {rオープニング画面表示  /する/しない\n}|
  692.             {rＯＰ画面表示補正　　  /する/しない\n}|
  693.             {s                      / 設定 / 取消 },
  694.             Nattou,Click,Tab,Lock,Opening,Hosei);
  695. %sel1    @head(@getline(a,1,1),{\n});%sel2    @head(@getline(a,2,1),{\n});
  696. %sel3    @head(@getline(a,3,1),{\n});%Nattou    @head(@getline(a,4,1),{\n});
  697. %Click    @head(@getline(a,5,1),{\n});%Tab    @head(@getline(a,6,1),{\n});
  698. %Lock    @head(@getline(a,7,1),{\n});%Opening    @head(@getline(a,8,1),{\n});
  699. %Hosei    @head(@getline(a,9,1),{\n});%ok        @head(@getline(a,10,1),{\n});
  700.     case    (sel1==1,{Yes},{setCOLOR;im({Yes})});
  701.     case    (sel2==1,{Yes},{setPRMPT;im({Yes})});
  702.     case    (sel3==1,{Yes},{setOAK;im({Yes})});
  703.     case    (ok,
  704.         { 1},{
  705.         NATTOU:=@case    (Nattou,
  706.                     { 1},{nattou({Yes});im({Yes})},
  707.                     { 2},{nattou({No});im({No})},
  708.                             ,{im({})}
  709.                 );
  710.         CLICK:=@case    (Click,
  711.                     { 1},{click({Yes});im({Yes})},
  712.                     { 2},{click({No});im({No})},
  713.                             ,{im({})}
  714.                 );
  715.         TAB:=@case    (Tab,
  716.                     { 1},{tab({1});im({1})},
  717.                     { 2},{tab({2});im({2})},
  718.                     { 3},{tab({4});im({4})},
  719.                     { 4},{tab({8});im({8})},
  720.                         ,{im({})}
  721.                 );
  722.         LOCK:=@case    (Lock,
  723.                     { 1},{shiftl({Yes});im({Yes})},
  724.                     { 2},{shiftl({No});im({No})},
  725.                         ,{im({})}
  726.                 );
  727.         OPENING:=@case    (Opening,
  728.                     { 1},{im({Yes})},
  729.                     { 2},{im({No})},
  730.                         ,{im({Yes})}
  731.                 );
  732.         HOSEI:=@case    (Hosei,
  733.                     { 1},{im({-m})},
  734.                     { 2},{im({})},
  735.                         ,{im({})}
  736.                 );
  737.             im({No});
  738.             },{ 2},{im({No})},,{im({No})}
  739.             )})};
  740. /*    ﾌｧｲﾙﾏﾈｰｼﾞｬの選択    */
  741. %setFMGR{
  742.     %mgr    @case(FMGR,{},{im({標準ﾌｧｲﾙﾏﾈｰｼﾞｬ})},,{im(FMGR)});
  743.     SNDMSG({erande_f.snd});
  744.     footnote({ﾌｧｲﾙﾏﾈｰｼﾞｬを選択して下さい  現在は }|mgr|{ です});
  745.     FMGR:=
  746.     @loop    ({select({ファイルマネージャを選択してください},
  747.             Wtime4,{im(FMGR)},
  748.             {  標準ファイルマネージャ  },{im({})},
  749.             { 任意のファイルマネージャ },
  750.             {
  751.             footnote({ファイルマネージャ用のオート}|
  752.                 {パイロットを指定して下さい});
  753.             %fmgr    @filesel();
  754.             case(fmgr,{},{im({})},
  755.                 ,{case(@nochar(@getcdir),
  756.                     {3},{im(@getcdir|fmgr)},
  757.                     ,{im(@getcdir|{\}|fmgr)})});
  758.             });
  759.         });
  760.     };
  761.  
  762. /*    設定情報をファイルに保存する    */
  763. %writeSET{
  764.     [file]
  765.     setcdir(CDIR);dispoff(!DEBUG);
  766.     copyfile(file,{ *.BAK});
  767.     delfile(file);dispoff({No});
  768.     write(file,
  769.         {ID      :=}|@xc({7b})|ID|@xc({7d})|{;\n}|
  770.         {PassWord:=}|@xc({7b})|PassWord|@xc({7d})|{;\n}|
  771.         {AcP     :=}|@xc({7b})|AcP|@xc({7d})|{;\n}|
  772.         {AcPNo   :=}|@xc({7b})|AcPNo|@xc({7d})|{;\n}|
  773.         {ROAD    :=}|@xc({7b})|ROAD|@xc({7d})|{;\n}|
  774.         {ROAD2   :=}|@xc({7b})|ROAD2|@xc({7d})|{;\n}|
  775.         {ROAD3   :=}|@xc({7b})|ROAD3|@xc({7d})|{;\n}|
  776.         {ROAD4   :=}|@xc({7b})|ROAD4|@xc({7d})|{;\n}|
  777.         {sROAD   :=}|@xc({7b})|sROAD|@xc({7d})|{;\n}|
  778.         {GEN     :=}|@xc({7b})|GEN|@xc({7d})|{;\n}|
  779.         {GEN2    :=}|@xc({7b})|GEN2|@xc({7d})|{;\n}|
  780.         {GEN3    :=}|@xc({7b})|GEN3|@xc({7d})|{;\n}|
  781.         {GEN4    :=}|@xc({7b})|GEN4|@xc({7d})|{;\n}|
  782.         {genteiT :=}|@xc({7b})|genteiT|@xc({7d})|{;\n}|
  783.         {openT   :=}|@xc({7b})|openT|@xc({7d})|{;\n}|
  784.         {closeT  :=}|@xc({7b})|closeT|@xc({7d})|{;\n}|
  785.         {NETname :=}|@xc({7b})|NETname|@xc({7d})|{;\n}|
  786.         {NET     :=}|@xc({7b})|NET|@xc({7d})|{;\n}|
  787.         {MODEM   :=}|@xc({7b})|MODEM|@xc({7d})|{;\n}|
  788.         {DIAL    :=}|@xc({7b})|DIAL|@xc({7d})|{;\n}|
  789.         {TEMP    :=}|@xc({7b})|TEMP|@xc({7d})|{;\n}|
  790.         {LOG     :=}|@xc({7b})|LOG|@xc({7d})|{;\n}|
  791.         {UP      :=}|@xc({7b})|UP|@xc({7d})|{;\n}|
  792.         {FSW     :=}|@xc({7b})|FSW|@xc({7d})|{;\n}|
  793.         {RTTLdir :=}|@xc({7b})|RTTLdir|@xc({7d})|{;\n}|
  794.         {VIEWLOG :=}|@xc({7b})|VIEWLOG|@xc({7d})|{;\n}|
  795.         {MEMBER  :=}|@xc({7b})|MEMBER|@xc({7d})|{;\n}|
  796.         {UPDOWN  :=}|@xc({7b})|UPDOWN|@xc({7d})|{;\n}|
  797.         {MAILDEL :=}|@xc({7b})|MAILDEL|@xc({7d})|{;\n}|
  798.         {MAILRED :=}|@xc({7b})|MAILRED|@xc({7d})|{;\n}|
  799.         {JISAR   :=}|@xc({7b})|JISAR|@xc({7d})|{;\n}|
  800.         {ESCon   :=}|@xc({7b})|ESCon|@xc({7d})|{;\n}|
  801.         {PLTmemo :=}|@xc({7b})|PLTmemo|@xc({7d})|{;\n}|
  802.         {AP3     :=}|@xc({7b})|AP3|@xc({7d})|{;\n}|
  803.         {ACCESS  :=}|@xc({7b})|ACCESS|@xc({7d})|{;\n}|
  804.         {WHO     :=}|@xc({7b})|WHO|@xc({7d})|{;\n}|
  805.         {TalkID1 :=}|@xc({7b})|TalkID1|@xc({7d})|{;\n}|
  806.         {TalkID2 :=}|@xc({7b})|TalkID2|@xc({7d})|{;\n}|
  807.         {TalkID3 :=}|@xc({7b})|TalkID3|@xc({7d})|{;\n}|
  808.         {TalkID4 :=}|@xc({7b})|TalkID4|@xc({7d})|{;\n}|
  809.         {TalkID5 :=}|@xc({7b})|TalkID5|@xc({7d})|{;\n}|
  810.         {TalkID6 :=}|@xc({7b})|TalkID6|@xc({7d})|{;\n}|
  811.         {TalkID7 :=}|@xc({7b})|TalkID7|@xc({7d})|{;\n}|
  812.         {TalkID8 :=}|@xc({7b})|TalkID8|@xc({7d})|{;\n}|
  813.         {TalkID9 :=}|@xc({7b})|TalkID9|@xc({7d})|{;\n}|
  814.         {TalkID10:=}|@xc({7b})|TalkID10|@xc({7d})|{;\n}|
  815.         {TalkID11:=}|@xc({7b})|TalkID11|@xc({7d})|{;\n}|
  816.         {TalkID12:=}|@xc({7b})|TalkID12|@xc({7d})|{;\n}|
  817.         {TalkID13:=}|@xc({7b})|TalkID13|@xc({7d})|{;\n}|
  818.         {TalkID14:=}|@xc({7b})|TalkID14|@xc({7d})|{;\n}|
  819.         {TalkID15:=}|@xc({7b})|TalkID15|@xc({7d})|{;\n}|
  820.         {TalkID16:=}|@xc({7b})|TalkID16|@xc({7d})|{;\n}|
  821.         {TalkID17:=}|@xc({7b})|TalkID17|@xc({7d})|{;\n}|
  822.         {TalkID18:=}|@xc({7b})|TalkID18|@xc({7d})|{;\n}|
  823.         {TalkID19:=}|@xc({7b})|TalkID19|@xc({7d})|{;\n}|
  824.         {TalkID20:=}|@xc({7b})|TalkID20|@xc({7d})|{;\n}|
  825.         {CMt1    :=}|@xc({7b})|CMt1|@xc({7d})|{;\n}|
  826.         {CMt2    :=}|@xc({7b})|CMt2|@xc({7d})|{;\n}|
  827.         {CMt3    :=}|@xc({7b})|CMt3|@xc({7d})|{;\n}|
  828.         {CMt4    :=}|@xc({7b})|CMt4|@xc({7d})|{;\n}|
  829.         {CMt5    :=}|@xc({7b})|CMt5|@xc({7d})|{;\n}|
  830.         {CMt6    :=}|@xc({7b})|CMt6|@xc({7d})|{;\n}|
  831.         {CMt7    :=}|@xc({7b})|CMt7|@xc({7d})|{;\n}|
  832.         {CMt8    :=}|@xc({7b})|CMt8|@xc({7d})|{;\n}|
  833.         {CMt9    :=}|@xc({7b})|CMt9|@xc({7d})|{;\n}|
  834.         {CMt10   :=}|@xc({7b})|CMt10|@xc({7d})|{;\n}|
  835.         {CMt11   :=}|@xc({7b})|CMt11|@xc({7d})|{;\n}|
  836.         {CMt12   :=}|@xc({7b})|CMt12|@xc({7d})|{;\n}|
  837.         {CMt13   :=}|@xc({7b})|CMt13|@xc({7d})|{;\n}|
  838.         {CMt14   :=}|@xc({7b})|CMt14|@xc({7d})|{;\n}|
  839.         {CMt15   :=}|@xc({7b})|CMt15|@xc({7d})|{;\n}|
  840.         {CMt16   :=}|@xc({7b})|CMt16|@xc({7d})|{;\n}|
  841.         {CMt17   :=}|@xc({7b})|CMt17|@xc({7d})|{;\n}|
  842.         {CMt18   :=}|@xc({7b})|CMt18|@xc({7d})|{;\n}|
  843.         {CMt19   :=}|@xc({7b})|CMt19|@xc({7d})|{;\n}|
  844.         {CMt20   :=}|@xc({7b})|CMt20|@xc({7d})|{;\n}|
  845.         {MACTIV  :=}|@xc({7b})|MACTIV|@xc({7d})|{;\n});
  846.     write(SETFILE,
  847.         {OPENING :=}|@xc({7b})|OPENING|@xc({7d})|{;\n}|
  848.         {HOSEI   :=}|@xc({7b})|HOSEI|@xc({7d})|{;\n}|
  849.         {SOUND   :=}|@xc({7b})|SOUND|@xc({7d})|{;\n}|
  850.         {FMGR    :=}|@xc({7b})|FMGR|@xc({7d})|{;\n}|
  851.         {RTTLC   :=}|@xc({7b})|RTTLC|@xc({7d})|{;\n}|
  852.         {R       :=}|@xc({7b})|R|@xc({7d})|{;\n}|
  853.         {G       :=}|@xc({7b})|G|@xc({7d})|{;\n}|
  854.         {B       :=}|@xc({7b})|B|@xc({7d})|{;\n}|
  855.         {BELFIL  :=}|@xc({7b})|BELFIL|@xc({7d})|{;\n}|
  856.         {VBELL   :=}|@xc({7b})|VBELL|@xc({7d})|{;\n}|
  857.         {NATTOU  :=}|@xc({7b})|NATTOU|@xc({7d})|{;\n}|
  858.         {CLICK   :=}|@xc({7b})|CLICK|@xc({7d})|{;\n}|
  859.         {LOCK    :=}|@xc({7b})|LOCK|@xc({7d})|{;\n}|
  860.         {TAB     :=}|@xc({7b})|TAB|@xc({7d})|{;\n}|
  861.         {OAK     :=}|@xc({7b})|OAK|@xc({7d})|{;\n}|
  862.         {DORAEND :=}|@xc({7b})|DORAEND|@xc({7d})|{;\n});
  863.     SETFILE1:={標準設定};
  864.     };
  865. /*    設定情報をもとに戻す    */
  866. %CANCEL    {footnote({本当にもとに戻してもいいですか？});
  867.     select    ({本当にもとに戻してもいいですか？},
  868.         Wtime4,,
  869.         { Ｏ Ｋ },
  870.         {case(@filechk(SETFILE),{Yes},
  871.         {setcdir(CDIR);#DORASET.SET;init;SETFILE1:={標準設定}})
  872.         },{ Ｎ Ｇ });
  873.     };
  874. /*    設定情報をファイルに保存する    */
  875. %SAVE    {
  876.     var    newfile    [64];SNDMSG({erande_f.snd});
  877.     footnote({設定情報を保存するファイルを指定して下さい});
  878.     newfile:=@filesel({USR});
  879.     case    (newfile<>{},
  880.         {Yes},{
  881.         %newdir    @getcdir;
  882.         case    (@nochar(newdir)==3,
  883.             {Yes},{newfile:=newdir|newfile},
  884.             {No},{newfile:=newdir|{\}|newfile});
  885.         writeSET(newfile)})};
  886. /*    ファイルから設定情報を読み込む    */
  887. %LOAD    {var    newfile    [64];SNDMSG({erande_f.snd});
  888.     footnote({設定情報を読み込むファイルを指定して下さい});
  889.     newfile:=@filesel({USR});
  890.     case(newfile<>{},{Yes},{
  891.         %newdir    @getcdir;
  892.         case(@nochar(newdir)==3,
  893.             {Yes},{newfile:=newdir|newfile},
  894.             {No},{newfile:=newdir|{\}|newfile});
  895.         case(@filechk(newfile),{Yes},
  896.             {%ExcPilot {#}|newfile;ExcPilot;init;
  897.                 SETFILE1:=@tail(newfile,{\})})});
  898.     setcdir(CDIR)};
  899. /*    設定する情報の選択    */
  900. %DORASET{
  901.     loop    ({
  902.         footnote({設定する情報を選択して下さい});
  903.     select    ({設定する情報を選択して下さい  << 各種の設定 >>},
  904.         60,{im({No})},
  905.         {ユーザーＩＤとパスワードの設定},{setID;im({Yes})},
  906.         { モデム・電話機ﾀｲﾌﾟの設定 　　},{setMDM;im({Yes})},
  907.         { ＮＥＴ名称と電話番号の設定   },{setBBSNAME;im({Yes})},
  908.         {      ログファイルの設定      },{setLOGF;im({Yes})},
  909.         {      その他の通信の設定      },
  910.             {setcdir(CDIR);#DORASETC.PLP;im({Yes})},
  911.         {         その他の設定         },{setETC;im({Yes})},
  912.         {   ファイルマネージャの選択   },{setFMGR;im({Yes})},
  913.         {      もとの設定にもどす      },{CANCEL;im({Yes})},
  914.         {   設定をファイルに保存する   },{SAVE;im({Yes})},
  915.         {  ファイルから設定を読み込む  },{LOAD;im({Yes})},
  916.         {      設定を保存して終了      },{writeSET(SETFILE);im({No})},
  917.         {   保存しない(一時的な変更)   }
  918.             ,{SETFILE1:={一時設定};im({No})}
  919.         )})};
  920. DORASET;